home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 116
/
Tiger_Disk_116_2003_Tiger-Crew-Disk_de_Side_B.d64
/
rename disk
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
988b
|
24 lines
1 printchr$(14)chr$(8):poke53280,0:poke53281,0:print""
10 pn$="[196][201][211][203] [201][196] [195][200][193][206][199][197][210]":
20 print"[147] "+pn$+" ":print"[205]it diesem [208]rogramm koennen [196][201][211][203]-[206][193][205][197]"
30 print"und/oder [196][201][211][203]-[201][196] geaendert werden."
40 forl=1to13:print"[163][163][163]";:next:print:print:x$="0"
50 dv=val(x$)
60 dv$=x$:ifdvand254thenprint"[145][145][145][145][145][145]":goto40
70 print"[193]enderung von [196][201][211][203]-[206][146][193][205][197]":printtab(10)"oder [196][201][211][203]-[201][146][196] ?";
80 print" ([206][146]/[201][146]) ";:gosub220:ifx$<>"n"andx$<>"i"andx$<>"x"thenprint"[145][145][145][145]":goto70
85 printx$:ifx$="x"thenprint"[147]":end
90 printx$:open15,8,15:print#15,"i"+dv$:open1,8,3,"#":print#15,"u1:3"dv",18,0":ifx$="n"goto170
100 print#15,"b-p:3,162":get#1,a$,b$,c$,d$,e$:print"[196]erzeitiger [196][201][211][203]-[201][196] ist "a$;
110 printb$;c$;d$;e$:input"[206]euer [196][201][211][203]-[201][196] (max. 5 [218]eichen) ";ni$
111 iflen(ni$)<>4theni$=left$(ni$+" ",5)
120 print#15,"b-p:3,162":print#1,ni$;:print#15,"u2:3"dv",18,0
130 i$[178]"i"[170][202]([196](dv),2):[152]15,i$
160 [138]
170 [152]15,"b-p:3,144":dn$[178]"":[129]l[178]1[164]16:[161]#1,a$:dn$[178]dn$[170]a$:[130]
180 [153]"str$erzeitiger str$right$(NULL)(NULL)-(NULL)atn(NULL)val ist:":[153]:[153]" "[170]dn$[170]" "
190 [153]"(NULL)euer str$right$(NULL)(NULL)-(NULL)atn(NULL)val ( maximal 16 (NULL)eichen! ) ":[133]nd$:[153]
200 nd$[178][200](nd$[170]" ",16)
210 [152]15,"b-p:3,144":[152]1,nd$;:[152]15,"u2:3"dv",18,0":[137]130
220 [161]x$:[142]